home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
16 Vendor Support
/
TURBO.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
6KB
|
13 lines
100 PRINT "TURBOLOAD/VDOS CREATOR..."
110 OPEN 15,8,15:POKE 252,100:POKE253,09
120 DATA !,!.INSTRUCTIONS,END
130 READ F$:IF F$="END" GOTO 200
140 PRINT "CREATING FILE ";CHR$(34);F$;CHR$(34)
150 OPEN 8,8,8,"0:"+F$+",P,W"
160 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
170 SYS 2375
180 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
190 CLOSE 8:GOTO 130
200 CLOSE 15
210 PRINT "BE SURE TO READ THE INSTRUCTION FILE!"